home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
OOP.SWG
/
0033_TVision Backgrounds.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-01-27
|
639b
|
40 lines
{
> I'm starting to play with TVision 1 and I would like to know how
> to change the background fill character.
Working example:
}
program otherbackground;
uses
app, objects;
type
pmyapp=^tmyapp;
tmyapp=object(tapplication)
constructor init;
end;
constructor tmyapp. init;
var
r: trect;
begin
tapplication. init;
desktop^. getextent(r);
dispose(desktop^. background, done);
desktop^. background:=new(pbackground, init(r, #1));
desktop^. insert(desktop^. background);
end;
var
myapp: tmyapp;
begin
myapp. init;
myapp. run;
myapp. done;
end.